home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pnl010.zip / DOSMEM.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-01  |  454b  |  42 lines

  1. unit DOSMem;
  2.  
  3. interface
  4.  
  5. function Alloc (paras:word):word;
  6.  
  7. procedure Free (p:word);
  8.  
  9. function Largest:word;
  10.  
  11. implementation
  12.  
  13. function Alloc; assembler;
  14.  
  15. asm
  16.   mov  ah, $48
  17.   mov  bx, paras
  18.   int  $21
  19.   jnc  @1
  20.   xor  ax, ax
  21.   @1:
  22. end;
  23.  
  24. procedure Free; assembler;
  25.  
  26. asm
  27.   mov  ah, $49
  28.   mov  es, p
  29.   int  $21
  30. end;
  31.  
  32. function Largest; assembler;
  33.  
  34. asm
  35.   mov  ah, $48
  36.   mov  bx, -1
  37.   int  $21
  38.   mov  ax, bx
  39. end;
  40.  
  41. end.
  42.